EinhugurWord.Document Class

using EinhugurWord

var ft as FileType = new FileType
ft.Extensions = "docx"
ft.Name = "Word Document"

var f as FolderItem = FolderItem.ShowSaveFileDialog(ft, "New document.docx")

if f <> nil then
    try
       var doc as Document = Document.Create(f)
      
       doc.Creator = "Einhugur test user"
       doc.LastModifiedBy = "Einhugur test user"
       doc.Subject = "My first"
      
       // Empty document has one paragraph so we just populate the first one instead of adding
       call doc.Paragraph(0).AppendRun("Hello world ! This is my first paragraph")
      
       var p as Paragraph = doc.AppendParagraph("My second paragraph.")
       p.Run(0).Bold = BooleanAttribute.YES
       var r as Run = p.AppendRun(" And we can do styles.")
       r.Italic = BooleanAttribute.YES
      
       call doc.AppendParagraph("Check next page to see table we created")
      
      
       // Lets add page break
       doc.AppendPageBreak()
      
       // And then finally paragraph with red text on the 2nd page
       p = doc.AppendParagraph("Our paragraph on the 2nd page")
       p.Run(0).TextColor = &c800000
      
      
       // Add some table
       var t as Table = doc.AppendTable(3,2)
       var row as TableRow = t.Row(0)
       call row.Cell(0).Paragraph(0).AppendRun("Data in table cell")
       call row.Cell(1).Paragraph(0).AppendRun("1")
       call row.Cell(2).Paragraph(0).AppendRun("2 !")
      
       doc.Save()
      
    catch e as WordException
    MessageBox e.Message
end try
end if